home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00182.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  407 b   |  21 lines
  1. on mouseUp
  2.   global currentCycleNo, cycleNo, userNo
  3.   cursor(4)
  4.   if the doubleClick then
  5.     exit
  6.   end if
  7.   leaveDayBook()
  8.   writecycleinfo()
  9.   if the optionDown then
  10.     quit()
  11.   end if
  12.   if currentCycleNo <> getAt(cycleNo, userNo) then
  13.     set currentCycleNo to getAt(cycleNo, userNo)
  14.     readCycleInfo()
  15.     puppetStatus(23, 48, 0)
  16.     go("setupShowDays")
  17.     showDays()
  18.   end if
  19.   prepfrontpage()
  20. end
  21.